ربط الدلفي بال-]90؟S‏ إعداد: علي عبد الحفيظ القماطي 


ايمانا منى بأهمية هذا الموضع, قررت وضع هذا الشرح المبسط عن كيفية ربط لغة الدلفي 


بلغة قواعد البیانات ۷۴۸ Q1 SER۸‏ راجیاً من اللہ تعالی أن ينال إعجاب وتقدیر کل من 
يقرأ هذا الكتاب. 
أولا قبل أن أبدأً الشرح لابد من توفر شيئين أساسيين هما: 

SQL SRVEÊR تٽlنlıبلl لغة قواعد‎ .1 


2. لغة الدلفي. 


تم تحميل هذا الكتاب من موقع كتب 
www.kutub.info‏ 
للمزيد من الكتب في جميع مجالات التقنية » تفضلوا بزيارتنا 


ربط الدلفي بال91؟S‏ إعداد: علي عبد الحفيظ القماطي 


1. نقوم باختيار الصفحة ۸(0 كما هو مبين في الشكل: 


ow Help 4Nores 


in32] Svstem | Data Access | Data Controls | dbExpress 
E EBS] 
ا‎ rono rll, 


اا الت ڪڪ 
e TFormî 2‏ 


+ J Yariables/Constants unit Unitl; 


A Uses 


interface 


uses 


Windows, Messages, SyasUtils, Variants, Classes, Graphics, CC 
Dialogs; 


|type 
| TForm1 = class (TForm] 
ا‎ private 


Forrnl TFotm >| f Private declarations J 


Properties | E E 
0 vents | 7 PFublit Aectlarationzs J 


| end: 


N 

an E : 2 
AlphaBlend False [ Form1l: TForml?; 
AlphaflendYall 255 Ej 
Anehors | akLeftakTop] 1 | implementation 
Auta eral, 
AutoSize ت‎ ١ (FFF afm! 
BiDiMode | baLeftToRight 
Borderlcans _ [biSystenMenu, 
BorderStyle  bsSizeat 
Bordefwidth | (Modified Insert 
Captian 
ClientHeight 
Clientwidth 

lor 
All shown 


Î Ende {Diagram 


E 05:59 ص‎ 
O M3 Wednesday 
3 


o1/0afa007 


1 Adobe Bhatashap: 


ربط الدلفي بال-]9؟S‏ إعداد: علي عبد الحفيظ القماطي 


2. نقوم باختيار ٥1ا12‏ ۸(0 من الصفحة ۸(0 ونقوم بوضعه على ۲0۸١‏ كماهو 


مبين في الشكل: 


DE-EHEHA SEE ا‎ Standard | Additional | win32 | Svstem | Dataûccess | Data Coritrols | dbExpress | DataSnan | EBDE ADD | InterBase | Webservices | mE 


SEET ESA TE 3 laBS] 7 
RABID] EMS | R ASE BEAR 


File Edit Search wiew Project Run Component Database Tools Window Help <Rones | 


? pq <7> Implied ADO Connection | 
z7 wl <? {ADDTable1} 


|Formî 
Properties | Events | 
*etian 1 
|. Aztivelontral | 
|. موك‎ alone 
AlphaBlend False 
AlphaBlendyal, 255 
Anchors | [akLett.akT op] 
AutoSerol Tue 
AuoSize Fale 
BiDiMode | bdLettT oRight 
Borderlcons _[biSystemMenuy, |: n, 
BorderStyle _ bsSizeable SEAR 
Borderwidth Û : Modiied Insert | Eade A Diagram, 
Caption |Formî1 . a 
| CentHeight 48 
| Elentwidth B88 
| olor 1 clBinFace 


lA shown چ‎ 


D1jmeja007 


ربط الدلفي بال-]90؟S‏ إعداد: علي عبد الحفيظ القماطي 


3. الخطوة الثالثة نقوم بتحديد الجدول المطلوب ربطه مع S۵]‏ ثم نذهب إلى قائمة 


الخصائص ۲٥)ءeمءہ! ec‏ زا0 ونقوم باختیار Connecti01 S۲11‏ کما هو مبین 
بالشكل 


ظ 


File Edt Search Yiew Project Run Component Database Tools Window Help Rt a 
O &# - El ی چ‎ 2 î ë& Standard | Additional winda | Sustem | Data Access | Data Controls | dbExpıess | DataShan | EDE ADO | InterBase | WebServices | ALE 


RE BIE $ EMIS ENR E e وہ ا اکا ا‎ 
3 


A 
Form 


98 4? {lmplied ADO Connection 
TF wf <75 {ADOT abel} 


| ADOT able 
Properties | Events 

| Arlive [False 
AutoLalcFields True 
CacheSize 1 


1 5 8 En " 
ConnectonString 8 
CursorLocation__clUseClient 


ور 
EnableBCÛ‏ 
Execute ptions‏ 
ا ا Filter‏ 
Fikere 1 Modified Insert‏ 
lnde»FieldN armas‏ 
Inder ame‏ 
LockType tO ptirnistic‏ 
Marshal ptions moh arshalû‏ ا 
MasterfFields‏ 
MasterSource‏ 


@ Adobe Photoshop أ‎ (New Folder. 


ريط الدلفي بال91؟ 


إعداد: علي عبد الحفبظ القماطي 


4. الخطوة الرابعة نقوم بالضغط على المربع الموجود بجانب C0106 ٥†10۸ S8۲1١‏ لكي 


يظهر لنا الصندوق التالي نختار منه الأمر ...]1ں 8: 


A00 | InterBase] WebServices | nl 


| 


Û Mem Folder 


lEn=] 
n KIL 


| IQ stake rhotoshon 


ow Help 


loa] a 7 
ا"‎ 8 ê 


SHE 


Source of Connection 
f Use Dala Link File 


(F lIse Connection Strihg 


1 


r 


ظ 


File Edt Search Ywiew Project Run Component Database Tools Win 


Standard | Adaitional wina2 | Sustem | ata Access | Data Controls | dbE «press | DataSnan | BDE‏ | أ 


EETEEE 
@ تھ ج‎ ۶ ۳ 
3 

a 


Form 
F 8د‎ 4? {lmplied ADD Connection 
#1? Ê <2> {ADDTablel} 


ADOT ablel 
Propertizs | Everts | 


Aliye | False 
AutoCalcFields True 
CacheSize $| 
CommandTimeout 30 
Connection 8 
| CornectionString | 8 
CursarLocation للاد|‎ seClient 
Cursorî ype cikeyşel 
EnableBCÛ | True 
EsecuteNptions [] 
Fike | 
Filter False 
IndesFieldNarmes | 
Index ame 
Lock Type Optimistic 
MarshalOptions _moMarshalê 
| MasterFields 
| MasterSource 


[All shown 


ريط الدلفي بال91؟ 


إعداد: علي عبد الحفبظ القماطي 


5. بعد اختيار الأمر ...8114 يظهر لنا الصندوق التالي فنختار منه الأمر 


:Ne×† ثم نضغط علي‎ Microsoft OLE DB Provider for SQL Server 


Standard | Additional | win32 | Svetem | Data Access | Data Controls | dbExpress | DataSnan | BOE 4DD | [mierBase | webservices | me dl 


Tools Window Help | REE 9 ê 2 


ع ?4 


| 
a e 


ا 


EE 


Provider | Connection | Advanced | Al | 


Select the data you want lo connect to: 


OLE DB Praviderls] 

MediaCatalogDB. OLE DB Provider 
MediaCatalogMergedDB DLE DB Provider 
MediaLatalogyebDB DLE DB Prorider 

Microsoft Jet 4.0 DLE DB Provider 

Microsoft DLE DB Provider For Data Mining Services 
Microsoft OLE DB Fray 

Micrasaft [O 


Microsoft DLE DB Provider far ODBC Drivers 
Microsoft DLE DB Provider for Dlap Services 8.0 
Microsoft DLE DB Provider for Dracle 

Microsoft DLE DE Provider for Dutlook Search 
[Mictosoit OLE DE Pravider for SAL Server 
Microsoft OLE DB Simple Provider 
MSDataShape 
OLE DB Provider far Microsoft Directory Services 


Cancel | Help 


a Adobe Photoshop آ‎ (O Hem Folder 


| File Edit Search Yiew Project Run Component Database 


108-HA RE @ 


کڪ 


i R 


EERE 


ك 


Form 
+? 4? {lmplied ADO Connection 
l-? w <? {ADDTablel} 


Source 


f lse 


ADDT ablel 


Properties | Evet | 


Active False 
AutoLalcFields True 
CacheSize 1 
CommandTimeout 30 
Connection 

ConnectionString | | 
CursarLacation | sIUseClient 1 
Cursorî ype cikeysel | 
EnableBCÛ | True 
EsecuteNptions [] 

Fike 1 

Filtered False 
IndesFieldNarmes | 

Index ame 

Lock Type | Optimistic 
MarshalOptions _moMarshalê 
MasterFields 

MasterSource 


Al shown 


7 ™) Microsoft Word =1 
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6. نأتي الآن إلى الخطوة السادسة وهي بعد الضغط على المفتاح ۸٥×٤...‏ يظهر لنا 


الصندوق التالي بعد ذلك نقوم بتنفيذ الخطوات الموجودة على الصورة: 

Use Windows NT Integrity Security رlتخ|ڊ كوم‎ 

الخطوة الثانية نقوم باختيار اسم قاعدة البيانات "نقوم باختيار قاعدة البيانات التي تريد 
الاتصال بها وهي نفس قاعدة البيانات التي قمت بإنشائها'. 


الخطوة الأخيرة تقوم باختيار اختبار الاتصال Test Connecti01‏ 


| File Edit Search View Project Run Zomponent Database Tools Window Help None] 9 ê 1 
ا کک‎ & Standard | Additional | win32 | Svstem | Data Access | Data Cantrûls | dbExpress | Dataönan | BODE ADO | IrierBase | Webservices | mie dl 


2 Î ست‎ E GE 4F ? ا‎ 6 
IRE |$ -BMIS KIR E کہ ا ا ا‎ 


Form 

? qf <75 Implied ADO Connection : : Provider Connection | avanced | ااك‎ | 

{E-? w <7> {ADOTablel} 

Specify the folowing to connect lo SQL Server data 
1. Select or enter ã server hame: 


ê چ‎ 
1 . Enter informatiûn to log of ta the servet: 
f Use vimdiws HT Integrated security 


Source o SCT جز ورتايت ارز وت‎ 
f Usel lser name: | 
Password: 


ADOT ablel 
Properties | EERE | 3. fF Select the databaşe on the server: 

Active False 
AutoalCF elds (Tue aL (` Attach a dalabase file as a databaše name: 

| CacheSize N 
CornmandTirmneout 30 
Connection | 

| ConnectionString | 3 
CursorLacation | sIUlseClient 
Cursorî ype cIKeysel 
EnableB CD | True 

HEsecuteDptions i | 
Fike ls لا‎ Ok | Cancel | Hek 
Filter 

| _lndenFieldNames 
Index ame 

| LackType Optimistic 
MarshalOptions moMarshalê, 

1 MasterFields ا‎ 
Master Source 


|All shown 


(O New Folder. 
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المرحلة الثانية: 


1. نذهب إلى قائمة الخصائص ١٥ءءمء,]‏ ا٥٥‏ [ط0 ونقوم باختيار N2٥‏ ء]ط1]a»›‏ تقوم 


باختيار اسم الجدول المراد الاتصال به من القائمة كما هو موضح بالصورة: 


| File Edit Search View Project Run Component Database Icols Window Help HES ا‎ F1 : 


E @ Standard | Additional | Wina | Svstem | Datla Access | Data Controls | dbExpress | DataSnan | EBDE ADD | Irertase | webservices | Inte dl 


EEE EET EER O 


#| 
ودم ا‎ RD Po rl 
7 


3 

Form 
8 4? {lmplied ADD Connection f: 

1-7 Ê <7> ADOTablel} e 


ADOTal 
Properties | Events 


CursorLocation | cIUlseClient 
CursarT ype ciKeysel 
EnableBC! | True 
EnecuteDptions [] 
Filter 
Fillele: False 
lndexFieldNarnes 
Index ame 
LockType {Optimistic 
MarshalOptions _moMarshalêl 
MasterFields 


MasterSource : Modified Insert | 1 Eade Diagram 


Read nly 
TableDirect 
Table ame 
Tag 


Adobe photashaf 
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2. نذهب إلى الخاصية ٥۷ا٥۸‏ نقوم بتغییر الخاصیية من ٥ا۴‏ إلى عuآآ‏ 


| File Edit Search View Project Run Zomponent Database Tools Window Help N ones] ا‎ ê i 

Standard | Additional | win32 | Svstem | Data Access | Data Cantrûls | dbExpress | DataSnan | BODE ADO | IrierBase | Webservices | Inte dl‏ & دک 
aE‏ ج ? GE Fy‏ چ 2 ا ا 

RQ IE | š8 ù BF I e 


BO 


E 


a a 

Farm 
8 4? {lmplied ADO Connection f : 
E? WÊ <7> {ADOTablel} 


Propertias | Everts | 


Active False 
AutoLalcFields True: 
CacheSize 5 
CormmandTimeout 30 


CursorLacation _cllseClient 
CursorT ype cIKeysel 
EnableBCb | True 
Execute ptions i 

Filter 


Lode {Diagram 8‏ أ Modified Insert‏ ج Filter False‏ أ 


lndesFieldN armes 8 

Index ame `" 
Lock Type Optimistic ت‎ 
MarshalOptions _moMarshalAl 


MasterFields 
Master Source 


Al shown 


| IQ stoke ehotashan I Nen Folder 1 NOS TA 


وبهذا نكون قد انتهينا من توضيح ربط الدلفي بلغ SQ See‏ 


وأتمنى من الله العلي القدير أني قد قمت بتوضيح الهدف الأساسي من الفكرة. 


و لأي استفسار alialgumaty@hotmai1.000¬‏ 


